home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / rex / keyclear.bas < prev    next >
BASIC Source File  |  1994-12-10  |  1KB  |  26 lines
  1. 1000 '********************************************************************
  2. 1010 '*　　　　　多分役に立つだろう機械語サブルーチン　Ｎｏ．１  　    　*
  3. 1020 '*                                                                  *
  4. 1030 '*            キーバッファクリア機械語サブルーチン使用例　          *
  5. 1040 '*                                  94年10月30日（日） by 渡辺 良一 *
  6. 1050 '********************************************************************
  7. 1060 CLEAR ,,,,6
  8. 1065 LOADM"keyclear.rex",0
  9. 1070 COLOR 7,0:CLS
  10. 1075 LOCATE 8,1
  11. 1080 PRINT"キーバッファクリア機械語サブルーチン使用例"
  12. 1170 LOCATE 0,3
  13. 1175 PRINT"キーを入力して、キーバッファいっぱいに溜めてください。"
  14. 1180 LOCATE 5,5
  15. 1185 PRINT"１０";:WAIT 100:PRINT"・９";:WAIT 100:PRINT"・８";:WAIT 100
  16. 1189 PRINT"・７";:WAIT 100:PRINT"・６";:WAIT 100:PRINT"・５";:WAIT 100
  17. 1190 PRINT"・４";:WAIT 100:PRINT"・３";:WAIT 100:PRINT"・２";:WAIT 100
  18. 1200 PRINT"・１";:WAIT 100:PRINT"・０"
  19. 1210 '
  20. 1220 BEEP:CALLM 0
  21. 1230 LOCATE 0,7:PRINT"機械語サブルーチンをコールしました。"
  22. 1240 '
  23. 1250 LOCATE 0,9:PRINT"何かキーを押してください。"
  24. 1260 WHILE INKEY$="":WEND
  25. 1270 END
  26.